Sub 데이터_교환()

    Dim 보관 As Long

    보관 = Range("B3").Value

    Range("B3").Value = Range("D3").Value
    Range("D3").Value = 보관

End Sub